home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_09_(08-1984).d64
/
bits & bytes
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
12KB
|
361 lines
10 REM *** BY QUINCY LEE ***
20 IFPEEK(861)<>136THENPOKE861,136:LOAD" BYTSPRITES",8,1
30 DIMTX$(18),TS(18):V=53248
40 SP$=" ":DN$=""
50 GOTO900
100 REM
101 PC=P2
105 POKE2040,237:POKEV+23,PEEK(V+23)AND254:POKEV+29,PEEK(V+29)AND254
110 POKE646,HC
115 IFCS=0THENPRINT"[147]"
120 CS=0:PRINT""H1$;H2$;H3$
130 SF$=""
140 POKE646,PEEK(V+33)
150 TL=0:FORI=1TO18:TS(I)=VAL(TX$(I)):IFTS(I)=0THEN170
160 PRINTLEFT$(SP$,TS(I));MID$(TX$(I),3);"[160]@@";:BL=I:IFTL=0THENTL=I
170 PRINT:NEXTI
172 PRINTLEFT$(DN$,BL+4);LEFT$(SP$,TS(BL));MID$(TX$(BL),3)" [157][157]";:GOSUB800
180 POKE646,HC:PRINT""
190 POKEV+39,PC:REM PC IS THE TEXT COLOUR
200 FORR=3+TLTO3+BL
210 POKEV+1,44+8*R
230 IFTS(R-3)=0THEN410
240 POKEV,8*TS(R-3)+2:POKEV+16,0:POKEV+21,1
260 FORX=TS(R-3)TO43STEP2:CP=1023+40*R+X:PK=PEEK(CP)
270 IFPK=0THEN410
310 IFX<32THENPOKEV,8*X+2:GOTO330
320 POKEV+16,1:POKEV,8*X-254
330 FORF=237TO242STEP4
340 POKE2040,F
350 IFF=237THENPOKE55294+40*R+X,PC:POKE55295+40*R+X,PC
370 NEXTF
400 NEXTX
410 POKEV+21,0:NEXTR
420 POKEV+21,0
430 FORI=1TO18:TX$(I)="":NEXTI
440 RETURN
450 REM CSR
455 CC=P2
460 POKE209,C1%:POKE210,C2%:POKE211,C3%+1:POKE214,C4%
505 IFSF$<>"CONT"THENRS$="":POKE211,C3%
507 PRINTMID$(" [157][157][157][157][157][157][157][157]",9-IL,IL*2);
510 RF$="":POKE204,0:POKE646,CC:POKE647,CC:PRINT".[157] [157]";
520 GETIN$:IFIN$=""THEN520
530 GOSUB540:IFRF$<>"RETURN"THEN520
535 RETURN
540 REM IN
550 POKE646,CC:POKE647,CC
560 IFIN$=CHR$(13)ANDLEN(RS$)>0THENPOKE204,1:PRINT" [157]":SF$="":RF$="RETURN":RETURN
570 IFIN$<>CHR$(20)ORLEN(RS$)=0THEN600
580 RS$=LEFT$(RS$,LEN(RS$)-1)
590 PRINT" [157][157] [157]";:RETURN
600 IFLEN(RS$)>=ILTHENRETURN
610 FORIZ=1TOLEN(IC$)
620 IFIN$=MID$(IC$,IZ,1)THENRS$=RS$+IN$:PRINTIN$;:RETURN
630 NEXTIZ:RETURN
650 REM SPC
660 POKE646,HC
670 PRINT" PRESS SPACE BAR[146] TO CONTINUE."
680 GETIN$:IFIN$<>" "THEN680
690 RETURN
700 REM CRSR
705 POKE209,C1%:POKE210,C2%:POKE211,C3%:POKE214,C4%
707 PRINTMID$(" [157][157][157][157][157][157][157][157]",9-IL,IL*2);
710 RS$="":RF$="":POKE204,0:POKE646,CC:POKE647,CC:PRINT".[157] [157]";
730 GETIN$:IFIN$=""THEN730
740 GOSUB540:IFIN$=""THEN730
750 SF$="CONT":POKE204,1:PRINT:RETURN
800 REM CRSR
810 C1%=PEEK(209):C2%=PEEK(210):C3%=PEEK(211):C4%=PEEK(214):RETURN
820 REM ---WAIT FOR RETURN KEY---
830 GOSUB800:POKE646,P2:PRINT" [PRESS RETURN]
840 [151]209,C1%:[151]210,C2%:[151]211,C3%:[151]214,C4%
845 [151]646,P2:[151]647,P2:[151]204,0
850 [161]IN$:[139]IN$[179][177][199](13)[167]850
860 [153]" ":[151]204,1:[142]
900 [143]SPRITES
910 [151]V[170]40,6:[151]V[170]41,2:[151]V[170]39,2
920 [151]V[170]23,7:[151]V[170]29,199
930 [151]V[170]3,137
940 [151]2042,250:[151]V[170]4,160:[151]V[170]5,176:[151]V[170]27,4
950 [151]2040,249:[151]V,72:[151]V[170]1,137
960 [151]V[170]2,80:[151]V[170]16,3
970 [151]2041,251
980 [129]I[178]3[164]7:[151]2040[170]I,248[170]I:[151]V[170]1[170]2[172]I,111:[130]I
982 [151]V[170]6,140:[151]V[170]8,164:[151]V[170]10,188:[151]V[170]12,132:[151]V[170]14,180
984 [151]V[170]42,13:[151]V[170]43,13:[151]V[170]44,13:[151]V[170]45,9:[151]V[170]46,9
1000 [143]TITLE
1001 V[178]53248:[151]V[170]21,0:[151]53272,21
1002 [151]V[170]32,12
1003 [151]V[170]33,12
1020 [153]"LOAD"[163]15)"USING YOUR"
1025 [151] 646,[194](V[170]33)
1030 [153]" (null)LENRIGHT$(null)LENRIGHT$(null)=RIGHT$(null)=RIGHT$(null)LENRIGHT$ORLENRIGHT$(null)LENRIGHT$ORLENRIGHT$ORLENRIGHT$"
1040 [153]" PEEK PEEK (null)PEEK(null)(null)PEEK(null)(null)PEEKCLOSE(null)PEEKCLOSEPEEKPEEKCLOSE(null)-=(null)-LEN"
1050 [153]" MID$TAN(null)MID$TAN(null)> >>CLOSE>MID$TAN(null)/TAN(null)MID$TAN(null)>MID$EXP/LEN(null)"
1060 [129]I[178]1[164]4:[153][163]17)" WAIT":[130]:[153]"ONONONON";
1100 [143]
1170 [151]V[170]21,7
1180 [129]X[178]42[164]6[169][171]2
1190 :[129]F[178]243[164]248
1200 : [139]F[177]243[167]1270
1210 : [151]2041,243
1220 : [139]X[177]31[167][151]V[170]2,X[172]8[171]256:[137]1240
1230 : [151]V[170]2,X[172]8:[151]V[170]16,1
1240 : [151]55775[170]X,13:[151]55815[170]X,13:[151]55855[170]X,13
1250 : [151]55774[170]X,13:[151]55814[170]X,13:[151]55854[170]X,13
1260 : [137]1280
1270 : [151]2041,F
1280 : [129]T[178]1[164]18:[130]T
1290 :[130]F
1300 :[129]T[178]1[164]30:[130]T
1310 [130]X
1320 [151]2041,243
1330 [151]V[170]2,40
1340 [129]F[178]244[164]246:[151]2041,F:[130]F
1350 [129]X1[178]330[164]90[169][171]40:X[178]X1[171]256
1355 [139]X1[179]256[167]X[178]X1:[151]V[170]16,0
1360 [151]V,X:[151]V[170]1,139:[129]T[178]1[164]100:[130]T
1365 [151]V,X[171]10:[151]V[170]1,137
1370 [151]V,X[171]20:[151]V[170]1,136
1375 [151]V,X[171]30:[151]V[170]1,137
1380 [130]X1
1385 [151]V,50:[151]V[170]1,139:[129]T[178]1[164]200
1387 [151]V,40:[151]V[170]1,137
1388 [129]T[178]1[164]500:[130]T
1390 [129]I[178]1[164]4:[153][163]17);"SPC(SPC(SPC(SPC(SPC(":[130]I
1400 [129]T[178]1[164]200:[130]T
1410 [129]I[178]25[164]5[169][171].5
1420 [151]1721[170]40[172][181]([187](1)[172]4)[170][181]([187](1)[172]5),32
1430 [129]T[178]1[164]I:[130]T
1440 [130]I
1450 [151]V[170]27,0
1460 [153]""[163]8)"(null)BITS(null)BYTES(null)PEEKS(null)POKES(null)"
1490 [151]V[170]29,199:[151]V[170]21,255
1500 [153]"";[163]23);
1510 [129]OJ[178]1[164]8:[153]".CMD";:[129]I[178]1[164]200:[130]I
1520 [153]" CMD";:[129]I[178]1[164]200:[130]I:[130]OJ
1530 [151]V[170]21,0
4000 [143]TEXT
4001 P2[178]6:BQC[178]12:BZR[178]12:[153]"":[141]6000
4010 [153]"LOAD":[151]53272,23:[151]V[170]32,BZR:[151]V[170]33,BQC:HC[178]P2
4020 H1$[178]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
4022 H2$="[221] [194][201][212][211] * [194][217][212][197][211] * [208][197][197][203][211] * [208][207][203][197][211] [221]
4024 H3$[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
4030 TX$(6)="16[212]HE WORD"
4035 TX$(8)="19BIT[146]"
4040 TX$(10)="14IS SHORT FOR"
4042 TX$(12)="16THE TERM"
4045 TX$(14)="14BINARY DIGIT[146]."
4047 PC=14:GOSUB100:GOSUB650
4050 TX$(6)="13[193] BINARY DIGIT"
4055 TX$(8)="14MAY HAVE TWO"
4060 TX$(10)="12POSSIBLE VALUES:"
4070 TX$(14)="16[160]0 OR 1
4080 PC[178]13:[141]100:[141]650
4090 TX$(5)[178]" 8(null)HILE THERE ARE ONLY TWO"
4100 TX$(7)[178]" 8BINARY DIGITS, THERE ARE"
4110 TX$(9)[178]" 8FOUR TWO-DIGIT BINARY"
4120 TX$(11)[178]" 8NUMBERS, NAMELY,"
4130 TX$(14)[178]" 8CLOSE00, 01, 10 AND 11."
4140 PC[178]10:[141]100:[141]650
4150 TX$(2)[178]" 6LEFT$OW MANY THREE-DIGIT BINARY"
4160 TX$(4)[178]" 6NUMBERS DO YOU THINK THERE"
4170 TX$(6)[178]" 6ARE?"
4180 PC[178]3:[141]100
4190 IC$[178]"1234567890":IL[178]1:CC[178]5:[141]450:[139]RS$[178]"8"[167]4200
4191 [153]" LEFT$INT: THERE ARE TWICE AS
4192 PRINT" MANY THREE-DIGIT BINARY NUM-
4193 [153]" BES AS THERE ARE TWO-DIGIT
4194 PRINT" ONES.":GOSUB700
4195 PRINT" "
4196 PRINT" "
4197 PRINT" "
4198 PRINT" ":GOTO4190
4200 PRINT" [210]IGHT! [212]HESE THREE-DIGIT"
4210 PRINT" NUMBERS ARE:":FORT=1TO100:NEXTT
4220 BN$="000001010011100101110111"
4230 FORI=1TO10STEP3:PRINTTAB(14)MID$(BN$,I,3):FORT=1TO50:NEXTT:NEXTI
4240 PRINT"[145][145][145][145][145]"
4250 FORI=13TO22STEP3:PRINTTAB(23)MID$(BN$,I,3):FORT=1TO100:NEXTT:NEXTI
4260 GOSUB650
4270 TX$(2)="10[204]ET'S MAKE A CHART.":PC=7:GOSUB100
4280 PRINT" NUMBER OF[146] NUMBER OF[146]"
4290 PRINT" BINARY [146] POSSIBLE [146]"
4300 PRINT" DIGITS [146] VALUES [146]"
4310 FORI=1TO7:J=2^I
4320 FORT=1TO80:NEXTT:PRINTTAB(11);I;
4330 FORT=1TO30:NEXTT:PRINTTAB(27-LEN(STR$(J)));J:NEXTI:PRINTTAB(11);8
4340 PRINT" [195]AN YOU CORRECTLY FILL IN THE"
4350 PRINT" LAST SPACE IN THE CHART?[145][145][145][157][157][157][157][157][157][157][157]";:GOSUB800
4360 IL=3:IC$="0123456789":CC=4:GOSUB450
4370 IFRS$="256"THEN4410
4380 PRINT" [206]O, WHAT'S 2 TO THE POWER OF 8?"
4382 PRINT" "
4387 GOSUB700
4390 PRINT" ":GOSUB450:GOTO4370
4410 TX$(2)=" 5[212]HE TERM BYTE[146] REFERS TO 8 BITS[146]."
4430 TX$(5)=" 5[211]INCE A BYTE IS JUST AN EIGHT-"
4440 TX$(7)=" 5DIGIT BINARY NUMBER, HOW MANY"
4450 TX$(9)=" 5POSSIBLE VALUES CAN A BYTE"
4460 TX$(11)=" 5HAVE?"
4500 PC=12:GOSUB100:CC=14
4510 GOSUB450:IFRS$="256"THEN4550
4520 PRINT" [217]OU CAN'T EVEN REMEMBER 2[145]8 !?":GOSUB700
4530 PRINT" [145] ":GOTO4510
4550 PRINT" [212]HAT'S RIGHT. [201]T CAN HAVE ANY"
4560 PRINT" VALUE FROM 0 TO 255.":GOSUB650
4570 TX$(4)=" 6[193]LSO, A NIBBLE[146] IS SIMPLY"
4580 TX$(6)=" 64 BITS[146]."
4590 TX$(9)=" 6[211]O HOW MANY POSSIBLE VALUES"
4600 TX$(11)=" 6CAN A NIBBLE HOLD?"
4610 PC=8:GOSUB100:IC$="0123456789":IL=2:CC=12
4620 GOSUB450:IFRS$="16"THEN4660
4630 PRINT" [195]OME ON, IT'S ONLY 2[145]4 !":GOSUB700
4640 PRINT" [145] ":GOTO4620
4660 PRINT" [195]ORRECT, SINCE IT CAN HOLD
4670 [153]" ANY NUMBER FROM 0 TO 15.":[141]650
4680 TX$(4)[178]" 7(null)OW, YOU WILL NOTICE THAT
4690 TX$(6)=" 7THERE ARE 65536 BYTES[146] OF
4700 TX$(8)[178]" 7MEMORY IN THIS COMPUTER
4720 TX$(11)=" 7[197]ACH BYTE HAS AN ADDRESS,
4730 TX$(13)[178]" 7A NUMBER BETWEEN 0 AND
4740 TX$(15)="7.65535."
4760 PC=14:GOSUB100:GOSUB650
4770 TX$(5)=" 7[212]O FIND THE VALUE STORED
4780 TX$(7)[178]" 7IN A MEMORY LOCATION, WE
4790 TX$(9)=" 7USE THE"
4800 TX$(12)="13PEEK[146] FUNCTION.
4820 PC[178]8:[141]100:[141]650
4830 TX$(2)[178]"11(null)HE SYNTAX OF THE
4840 TX$(3)="11PEEK FUNCTION IS
4850 TX$(5)[178]"14PEEK(NUMBER)
4860 TX$(7)="11[207]BSERVE:
4870 PC[178]12:[141]100
4875 PL[178][181]([187](1)[172]65536):PL$[178][202]([196](PL),2):PN$[178][196]([194](PL))
4880 [153]" PRINT PEEK("PL$")";:[141]820
4890 [153]" "PN$:[153]" READY."
4900 TX$(15)[178]" 7(null)HIS MEANS THAT"[170]PN$[170]" IS THE"
4910 TX$(17)[178]" 7VALUE STORED IN BYTE "[170]PL$[170]"."
4920 CS[178]1:[141]100:[141]650
4930 TX$(5)[178]" 7(null)OTE: PEEKWAIT IS A FUNCTION
4940 TX$(7)="14[206][207][212] A STATEMENT.
4950 PC[178]10:[141]100:[153]" PEEK("PL$")";:[141]800:[141]820
4960 [153]" ?SYNTAX ERROR":[153]" READY.":[141]650
4970 TX$(1)[178]" 6ATNLSO, TO PUT A CERTAIN VALUE
4980 TX$(3)=" 6IN A MEMORY LOCATION, WE USE
4990 TX$(5)[178]" 6THE POKEWAIT STATEMENT. (null)ATCH:"
5000 PC[178]4:[141]100:PL[178][181]([187](1)[172]4096)[170]49152:PL$[178][202]([196](PL),2)
5010 PN[178][181]([187](1)[172]256):PN$[178][202]([196](PN),2):[139]PN[178][194](PL)[167]5010
5015 [153]" PRINT PEEK("PL$")";:[141]820
5020 [153]" "[194](PL):[153]" READY.":[153]" POKE "PL$","PN$;:[141]820
5030 [151]PL,PN:[153]" READY.":[153]" PRINT PEEK("PL$")";:[141]820
5040 [153]" "[194](PL):[153]" READY.":[141]650
5050 TX$(1)[178]" 6(null)UPPOSE WE WANT A CERTAIN
5060 TX$(3)=" 6LOCATION TO STORE THE BINARY
5070 TX$(5)[178]" 6NUMBER 00000001, WHAT VALUE
5080 TX$(7)=" 6SHOULD WE POKE INTO THIS
5090 TX$(9)[178]" 6LOCATION?
5100 PC=14:GOSUB100:IC$="0123456789":IL=1
5110 CC=5:GOSUB450:IFRS$="1"THEN5160
5120 PRINT" [201]T IS MUCH EASIER THAN YOU
5130 [153]" THINK!":[141]700
5140 [153]" "
5150 [153]" ":[137]5110
5160 [153][163]26)"ON[OR 2^0]
5170 TX$(11)=" 6[206]OW TRY 00000010.":PC=15:CS=1:GOSUB100
5180 GOSUB450:IFRS$="2"THEN5230
5190 PRINT" [201]T'S THE NEXT NUMBER AFTER
5200 [153]" YOUR PREVIOUS ANSWER.":[141]700
5210 [153]" "
5220 [153]" ":[137]5180
5230 [153][163]26)"ON[OR 2^1]
5240 TX$(13)=" 6[193]ND 00000100?":PC=14:CS=1:GOSUB100
5250 GOSUB450:IFRS$="4"THEN5280
5260 PRINT" [210]EMEMBER, 3 IS 00000011.":GOSUB700
5270 PRINT" ":GOTO5250
5280 PRINTTAB(26)"[145][OR 2^2]
5285 TX$(15)[178]" 6(null)ERY GOOD. RIGHT$ SEE THAT YOU
5290 TX$(17)=" 6CAUGHT ON TO THE PATTERN.
5300 PC[178]15:CS[178]1:[141]100:[141]650
5310 TX$(4)[178]" 7(null)E CAN IDENTIFY EACH BIT
5320 TX$(6)=" 7IN THE BYTE WITH A NUMBER,
5330 TX$(8)[178]" 7LIKE SO: 76543210.
5340 TX$(12)=" 7[198]OR EXAMPLE, WE CAN CALL
5350 TX$(14)[178]" 7THE LEFTMOST BIT: PEEKIT #7.":PC[178]7:[141]100:[141]650
5360 TX$(2)[178]" 7RIGHT$F WE POKE 8 INTO A CER-
5370 TX$(4)=" 7TAIN LOCATION, WHICH BIT
5380 TX$(6)[178]" 7WILL HAVE THE VALUE 1?
5390 PC=10:GOSUB100:IL=1:IC$="01234567"
5395 CC=10:GOSUB450:IFRS$="3"THEN5420
5400 PRINT" 2 RAISED TO WHAT POWER
5405 [153]" IS 8?":[141]700
5410 [153]" "
5415 [153]" ":[137]5395
5420 TX$(8)[178]" 7(null)HAT IF WE POKE THE VALUE
5430 TX$(10)="7.32 INTO A LOCATION?":CS=1:PC=13:GOSUB100
5440 CC=13:GOSUB450:IFRS$="5"THEN5490
5450 PRINT" 2 RAISED TO WHAT POWER
5460 [153]" IS 32?":[141]700
5470 [153]" "
5480 [153]" ":[137]5440
5490 TX$(12)[178]" 7LEFT$OW ABOUT THE VALUE 128?":CS[178]1:PC[178]10:[141]100
5500 CC[178]10:[141]450:[139]RS$[178]"7"[167]5550
5510 [153]" 2 RAISED TO WHAT POWER
5520 PRINT" IS 128?":GOSUB700
5530 PRINT" "
5540 PRINT" ":GOTO5500
5550 TX$(14)=" 7[199]REAT! [204]ET'S MOVE ON TO
5560 TX$(16)[178]" 7SOMETHING MORE CHALLENGING."
5570 PC[178]13:CS[178]1:[141]100:[141]650
5580 TX$(1)[178]" 6(null)UPPOSE WE WANT ONLY PEEKITS 2,
5590 TX$(3)="6.3 AND 5 OF A CERTAIN BYTE TO
5600 TX$(5)[178]" 6HAVE THE VALUE 1. (null)ET'S
5610 TX$(7)=" 6FIGURE OUT WHAT VALUE WE
5620 TX$(9)[178]" 6HAVE TO POKE THAT LOCATION.
5630 PC=12:GOSUB100:PRINT" [215]HAT'S 2[145]2? ";
5635 GOSUB800:IC$="0123456789":IL=1:CC=3
5640 GOSUB450:IFRS$<>"4"THEN5640
5650 PRINT"[145] 2[145]2[157] = 4 [145] [157][215]HAT'S 2[145]3? ";:GOSUB800
5660 GOSUB450:IFRS$<>"8"THEN5660
5670 PRINT"[145]"TAB(14)"2[145]3[157] = 8 [145] [157][215]HAT'S 2[145]5? ";:GOSUB800:IL=2
5680 GOSUB450:IFRS$<>"32"THEN5680
5690 PRINT"[145]"TAB(22)"2[145]5[157] = 32 [145] "
5700 TX$(14)=" 6[199]OOD. [206]OW, WHAT'S THE SUM OF
5710 TX$(16)[178]" 6THESE THREE NUMBERS?
5720 CS=1:GOSUB100
5730 GOSUB450:IFRS$<>"44"THEN5730
5740 PRINT"[145][145][145] 4 + 8 + 32 = 44 ":PRINTSP$
5750 TX$(16)=" 6[210]IGHT! [211]O THAT'S THE VALUE
5760 TX$(18)[178]" 6TO POKE TO GET 00101100.
5770 CS=1:GOSUB100:GOSUB650
5780 H1$="":H2$="":H3$=""
5790 TX$(6)=" 9[200][207][208][197][160][217][207][213][160][199][207][212][160][211][207][205][197][212][200][201][206][199]"
5800 TX$(9)="16[206][201][195][197][160][202][207][194]"
5810 TX$(12)="16[211][207][160][204][207][206][199]!
5820 PC[178]5:[141]100
5830 [129]I[178]1[164]3:[151]V[170]32,[187](1)[172]16:[151]V[170]33,[187](1)[172]16:[130]I:[153]"LOAD"
5840 [129]I[178]1[164]7:[151]V[170]32,[187](1)[172]16:[151]V[170]33,[187](1)[172]16:[130]I
5850 [151]V[170]32,14:[151]V[170]33,6:[151]53272,21
5860 [128]
6000 [153]"LOAD COLOR SELECTION"
6010 [153]" PRESSWAIT"
6020 [153]" F1 TO CHANGE BORDER"
6030 [153]" F3 TO CHANGE BACKGROUND"
6040 [153]" F5 TO CHANGE TEXT"
6050 [153]" F7 TO BEGIN PROGRAM"
6065 [161]Z1$:[139]Z1$[178]""[167]6065
6070 ZQ[178]137[171][198](Z1$)
6080 [145]ZQ[137]7000,8000,9000,10000
6090 [137]6065
7000 [142]
8000 P2[178]P2[170]1
8010 [139]P2[177]15[167]P2[178]0
8020 [151]646,P2:[137]6000
9000 BQC[178]BQC[170]1
9010 [139]BQC[177]15[167]BQC[178]0
9020 [151]53281,BQC:[137]6065
10000 BZR[178]BZR[170]1
10010 [139]BZR[177]15[167]BZR[178]0
10020 [151]53280,BZR:[137]6065